home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Linux Cubed Series 7: Sunsite
/
Linux Cubed Series 7 - Sunsite Vol 1.iso
/
system
/
shells
/
scsh-0.4
/
scsh-0
/
scsh-0.4.2
/
initial-packages.scm
< prev
next >
Wrap
Text File
|
1995-10-13
|
2KB
|
95 lines
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
; Packages involved in building the initial system.
; Access to values from packages and structures
(define-structure environments environments-interface
(open scheme-level-2
packages syntactic meta-types
fluids
locations ; contents
signals) ; error
(files (rts env)))
; EVAL and LOAD
(define-structure evaluation evaluation-interface
(open scheme-level-2
compiler
packages ;package-uid
environments ;package-for-load
closures ;make-closure
vm-exposure ;invoke-closure
scan ;noting-undefined-variables
signals fluids)
(files (rts eval)))
; Scheme = scheme-level-2 plus EVAL and friends
(define-module (make-scheme environments evaluation)
(define-structure scheme scheme-interface
(open scheme-level-2
environments
evaluation))
scheme)
; Command processor.
(define-module (make-mini-command scheme) ;copied from debug-packages.scm
(define-structure mini-command (export command-processor)
(open scheme
signals conditions handle
display-conditions)
(files (debug mini-command)))
mini-command)
; For building systems.
(define-module (make-initial-system scheme command)
(define-structure initial-system (export start)
(open scheme
command
interfaces ;make-simple-interface
packages ;make-simple-package
environments ;with-interaction-environment, etc.
scheme-level-2-internal ;usual-resumer
conditions handle ;error? with-handler
signals) ;error
(files (env start)))
initial-system)
; Utility to load packages following dependency links (OPEN and ACCESS)
(define-structure ensures-loaded ;Cf. (link-initial-system) and Makefile
(export ensure-loaded really-ensure-loaded)
(open scheme-level-2
packages
packages-internal
evaluation ;load
filenames
signals
environments ;with-interaction-environment
scan) ;scan-structures
(files (env load-package)))
; Things needed by the expression generated by REIFY-STRUCTURES.
(define-structure for-reification for-reification-interface
(open scheme-level-1
packages packages-internal
syntactic usual-macros
meta-types ;sexp->type
interfaces ;make-simple-interface
inline
tables)
(files (bcomp for-reify)))